home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD018b.dsk / LNL.txt < prev    next >
Text File  |  2003-06-12  |  281b  |  14 lines
  1.  
  2. 1  TEXT : HOME : NORMAL 
  3. 2  DEF  FN PK(X) =  PEEK (X) + 256 *  PEEK (X + 1)
  4. 3 PTR =  FN PK(103)
  5. 4 T = 1
  6. 5  HTAB T: IF  FN PK(PTR + 2) > 9 THEN  PRINT  FN PK(PTR + 2);
  7. 6 T = T + 8: IF T > 40 THEN  PRINT :T = T - 40
  8. 7 PTR =  FN PK(PTR)
  9. 8  IF  FN PK(PTR) <  > 0 THEN 5
  10. 9  END 
  11.  
  12. RUN
  13.  
  14.